home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / SNNSV32.ZIP / SNNSv3.2 / xgui / sources / bn_JordElm.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-04-25  |  30.4 KB  |  1,176 lines
  1. /*****************************************************************************
  2.   FILE           : bn_JordElm.c
  3.   SHORTNAME      : bn_JordElm.c
  4.   SNNS VERSION   : 3.2
  5.  
  6.   PURPOSE        : Bignet panel for Jordan and Elman networks
  7.   NOTES          :
  8.  
  9.   AUTHOR         : Tobias Soyez
  10.   DATE           : 09.11.1993
  11.  
  12.   CHANGED BY     : 
  13.   IDENTIFICATION : @(#)bn_JordElm.c    1.3 3/2/94
  14.   SCCS VERSION   : 1.3
  15.   LAST CHANGE    : 3/2/94
  16.  
  17.              Copyright (c) 1990-1994  SNNS Group, IPVR, Univ. Stuttgart, FRG
  18.  
  19. ******************************************************************************/
  20.  
  21.  
  22. #include <stdlib.h>
  23. #include <stdio.h>
  24. #include <X11/Xlib.h>
  25. #include <X11/Xutil.h>
  26. #include <X11/Xos.h>
  27. #include <X11/cursorfont.h>
  28. #include <X11/Intrinsic.h>
  29. #include <X11/StringDefs.h>
  30. #include <X11/Shell.h>
  31. #include <X11/Xaw/Box.h>
  32. #include <X11/Xaw/Simple.h>
  33. #include <X11/Xaw/Grip.h>
  34. #include <X11/Xaw/Form.h>
  35. #include <X11/Xaw/SmeBSB.h>
  36. #include <X11/Xaw/SmeLine.h>
  37. #include <X11/Xaw/Viewport.h>
  38. #include <X11/Xaw/Label.h>
  39. #include <X11/Xaw/Toggle.h>
  40. #include <X11/Xaw/Command.h>
  41. #include <X11/Xaw/Cardinals.h>
  42. #include <X11/Xaw/AsciiText.h>
  43. #include <X11/Xaw/Scrollbar.h>
  44.  
  45. #include "ui.h"
  46. #include "kr_const.h"
  47. #include "glob_typ.h"
  48. #include "kr_ui.h"
  49. #include "kr_typ.h"
  50. #include "kr_def.h"
  51. #include "kernel.h"
  52. #include "ui_mainP.h"
  53. #include "ui_confirmer.h"
  54. #include "ui_textP.h"
  55. #include "ui_utilP.h"
  56. #include "ui_netUpdate.h"
  57. #include "ui_status.h"
  58. #include "ui_xWidgets.h"
  59. #include "ui_fileP.h"
  60. #include "ui_display.h"
  61. #include "ui_event.h"
  62. #include "ui_selection.h"
  63. #include "bn_basics.h"
  64. #include "bn_JordElm.ph"
  65.  
  66.  
  67.  
  68. /*****************************************************************************
  69.   FUNCTION : createUnitLayer
  70.  
  71.   PURPOSE  : creates a layer of no_of_units units 
  72.   RETURNS  : the number of the first unit of the created layer or a kernel
  73.              error code
  74.   NOTES    :
  75.  
  76.   UPDATE   : 
  77. ******************************************************************************/
  78.  
  79. static int createUnitLayer (int  no_of_units, 
  80.                   int  io_type,
  81.                     char *act_func_name,
  82.                 char *out_func_name,
  83.                 char *unit_name)
  84.  
  85. {
  86.   krui_err     error_code = KRERR_NO_ERROR ;
  87.   int          i, unit_no, first_unit ;
  88.   char         name[10] ;
  89.   struct Unit *unit_ptr ;
  90.  
  91.   
  92.   if (no_of_units < 1) return (KRERR_NO_UNITS) ;
  93.  
  94.   for (i = 1 ; i <= no_of_units ; i++)
  95.   {
  96.     sprintf (name, "%s%d", unit_name, i) ;
  97.  
  98.     unit_no = krui_createUnit (name, out_func_name, act_func_name, 0, 0) ; 
  99.     if (unit_no < 0) IF_ERROR_RETURN (unit_no) ;
  100.  
  101.     if (i == 1) first_unit = unit_no ;
  102.  
  103.     error_code = krui_setUnitTType (unit_no, io_type) ;
  104.  
  105.     IF_ERROR_RETURN (error_code) ;
  106.   }
  107.  
  108.   return (first_unit) ;
  109. }
  110.  
  111.  
  112.  
  113. /*****************************************************************************
  114.   FUNCTION : connectFull
  115.  
  116.   PURPOSE  : connects every unit of one set (no_of_source_units units, 
  117.              beginning with from_unit) to every unit of a second set 
  118.              no_of_target_units units, beginning with to_unit)
  119.   RETURNS  : kernel error code
  120.   NOTES    :
  121.  
  122.   UPDATE   : 
  123. ******************************************************************************/
  124.  
  125. static krui_err connectFull (int       from_unit,
  126.                  int       no_of_source_units,
  127.                  int       to_unit,
  128.                  int       no_of_target_units,
  129.                  FlintType weight) 
  130.  
  131. {
  132.   krui_err  error_code = KRERR_NO_ERROR ;
  133.   int       i, j ;
  134.  
  135.   
  136.   for (i = to_unit ; i < to_unit + no_of_target_units ; i++)
  137.   {
  138.     error_code = krui_setCurrentUnit (i) ;
  139.     IF_ERROR_RETURN (error_code) ;
  140.  
  141.     for (j = from_unit ; j < from_unit + no_of_source_units ; j++)
  142.     {
  143.       error_code = krui_createLink (j, weight) ;
  144.       IF_ERROR_RETURN (error_code) ;
  145.     } 
  146.   }
  147.  
  148.   return (error_code) ;
  149. }
  150.  
  151.  
  152.  
  153. /*****************************************************************************
  154.   FUNCTION : connectOneToOne
  155.  
  156.   PURPOSE  : connects every unit of one set (no_of_units units, beginning 
  157.              with from_unit) to the corresponding unit in the second set
  158.              (no_of_units units, beginning with to_unit)
  159.   RETURNS  : kernel error code
  160.   NOTES    :
  161.  
  162.   UPDATE   :
  163. ******************************************************************************/
  164.  
  165. static krui_err connectOneToOne (int       from_unit,
  166.                      int       to_unit,
  167.                      int       no_of_units,
  168.                      FlintType weight) 
  169.  
  170. {
  171.   krui_err  error_code = KRERR_NO_ERROR ;
  172.   int       i ;
  173.  
  174.  
  175.   for (i = 0 ; i < no_of_units ; i++)
  176.   {
  177.     error_code = krui_setCurrentUnit (to_unit + i) ;
  178.     IF_ERROR_RETURN (error_code) ;
  179.  
  180.     error_code = krui_createLink (from_unit + i, weight) ;
  181.     IF_ERROR_RETURN (error_code) ;
  182.   }
  183.  
  184.   return (error_code) ;
  185. }
  186.  
  187.  
  188.  
  189. /*****************************************************************************
  190.   FUNCTION : connectSelfRec
  191.  
  192.   PURPOSE  : connects every unit of a set (no_of_units units, beginning with
  193.              unit_no) to itself
  194.   RETURNS  : kernel error code
  195.   NOTES    :
  196.  
  197.   UPDATE   : 
  198. ******************************************************************************/
  199.  
  200. static krui_err connectSelfRec (int       unit_no,
  201.                     int       no_of_units,
  202.                     FlintType weight) 
  203.  
  204. {
  205.   krui_err  error_code = KRERR_NO_ERROR ;
  206.   int       i ;
  207.  
  208.  
  209.   for (i = unit_no ; i < unit_no + no_of_units ; i++)
  210.   {
  211.     error_code = krui_setCurrentUnit (i) ;
  212.     IF_ERROR_RETURN (error_code) ;
  213.  
  214.     error_code = krui_createLink (i, weight) ;
  215.     IF_ERROR_RETURN (error_code) ;
  216.   }
  217.   return (error_code) ;
  218. }
  219.  
  220.  
  221.  
  222. /*****************************************************************************
  223.   FUNCTION : setPosRow
  224.  
  225.   PURPOSE  : sets the positions of a set of units (no_of_units units,
  226.              beginning with unit_no) starting at (x, y) with max. r units
  227.              per row
  228.   RETURNS  : void
  229.   NOTES    :
  230.  
  231.   UPDATE   : 
  232. ******************************************************************************/
  233.  
  234. static void setPosRow (int unit_no, int no_of_units, int x, int y, int r)
  235.  
  236. {
  237.   struct PosType  unit_pos ;
  238.   int             col, row ;
  239.   int             i ;
  240.  
  241.  
  242.   col = x ;
  243.   row = y ;
  244.  
  245.   for (i = unit_no ; i < unit_no + no_of_units ; i++)
  246.   {
  247.     unit_pos.x = col ;
  248.     unit_pos.y = row ;
  249.     krui_setUnitPosition (i, &unit_pos) ;
  250.     col++ ;
  251.     if ((col - x) == r)
  252.     {
  253.       col = x ;
  254.       row++   ;
  255.     }
  256.   }
  257. }
  258.  
  259.  
  260.  
  261. /*****************************************************************************
  262.   FUNCTION : setPosCol
  263.  
  264.   PURPOSE  : sets the positions of a set of units (no_of_units units,
  265.              beginning with unit_no) starting at (x, y) with max. c units
  266.              per column
  267.   RETURNS  : void
  268.   NOTES    :
  269.  
  270.   UPDATE   : 
  271. ******************************************************************************/
  272.  
  273. static void setPosCol (int unit_no, int no_of_units, int x, int y, int c)
  274.  
  275. {
  276.   struct PosType  unit_pos ;
  277.   int             col, row ;
  278.   int             i ;
  279.  
  280.  
  281.   col = x ;
  282.   row = y ;
  283.  
  284.   for (i = unit_no ; i < unit_no + no_of_units ; i++)
  285.   {
  286.     unit_pos.x = col ;
  287.     unit_pos.y = row ;
  288.     krui_setUnitPosition (i, &unit_pos) ;
  289.     row++ ;
  290.     if ((row - y) == c)
  291.     {
  292.       row = y ;
  293.       col++   ;
  294.     }
  295.   }
  296. }
  297.  
  298.  
  299.  
  300. /*****************************************************************************
  301.   FUNCTION : fixWindowSize 
  302.  
  303.   PURPOSE  : fixes the window size 
  304.   RETURNS  : void
  305.   NOTES    :
  306.  
  307.   UPDATE   :
  308. ******************************************************************************/
  309.  
  310. static void fixWindowSize (Widget window)
  311.  
  312. {
  313.   Dimension  width, height ;
  314.   int        n ;
  315.   Arg        args[10] ;
  316.  
  317.  
  318.   XtMapWidget (baseWidget) ;
  319.  
  320.   n = 0 ;
  321.   XtSetArg    (args[n], XtNwidth , &width ) ; n++ ;  
  322.   XtSetArg    (args[n], XtNheight, &height) ; n++ ;
  323.   XtGetValues (window , args, n) ;
  324.  
  325.   n = 0 ;
  326.   XtSetArg    (args[n], XtNminWidth , width ) ; n++ ;  
  327.   XtSetArg    (args[n], XtNminHeight, height) ; n++ ;
  328.   XtSetArg    (args[n], XtNmaxWidth , width ) ; n++ ;  
  329.   XtSetArg    (args[n], XtNmaxHeight, height) ; n++ ;
  330.  
  331.   XtSetValues (window , args, n) ;
  332. }
  333.  
  334.  
  335.  
  336. /*****************************************************************************
  337.   FUNCTION : bn_jordan_createNet
  338.  
  339.   PURPOSE  : generates the JORDAN network 
  340.   RETURNS  : kernel error code
  341.   NOTES    :
  342.  
  343.   UPDATE   :
  344. ******************************************************************************/
  345.  
  346. static krui_err bn_jordan_createNet (int IUnits, int HUnits, int OUnits,
  347.                                      int ICols , int HCols , int OCols )
  348.  
  349. {
  350.   krui_err  error_code = KRERR_NO_ERROR;
  351.   int       i_unit, h_unit, o_unit, s_unit ;
  352.   int       idy, hdy, maxdy ;
  353.  
  354.  
  355.   /* ---------------------------   create units  ----------------------------*/
  356.  
  357.   i_unit  =
  358.   createUnitLayer (IUnits, INPUT,     "Act_Identity", "Out_Identity", "inp") ;
  359.   if (i_unit < 0) IF_ERROR_RETURN (i_unit) ;
  360.  
  361.   h_unit =
  362.   createUnitLayer (HUnits, HIDDEN,    "Act_Logistic", "Out_Identity", "hid") ;
  363.   if (h_unit < 0) IF_ERROR_RETURN (h_unit) ;
  364.  
  365.   o_unit =
  366.   createUnitLayer (OUnits, OUTPUT,    "Act_Logistic", "Out_Identity", "out") ;
  367.   if (o_unit < 0) IF_ERROR_RETURN (o_unit) ;
  368.  
  369.   s_unit  =
  370.   createUnitLayer (OUnits, SPECIAL_H, "Act_Identity", "Out_Identity", "con") ;
  371.  
  372.   if (s_unit < 0) IF_ERROR_RETURN (s_unit) ;
  373.  
  374.  
  375.   /* ---------------------------   create links  ----------------------------*/
  376.  
  377.   error_code = connectFull     (i_unit, IUnits, h_unit, HUnits, 0.0) ;
  378.   IF_ERROR_RETURN (error_code) ;
  379.  
  380.   error_code = connectFull     (h_unit, HUnits, o_unit, OUnits, 0.0) ;
  381.   IF_ERROR_RETURN (error_code) ;
  382.  
  383.   error_code = connectFull     (s_unit, OUnits, h_unit, HUnits, 0.0) ;
  384.   IF_ERROR_RETURN (error_code) ;
  385.  
  386.   error_code = connectOneToOne (o_unit, s_unit, OUnits, 0.0) ;
  387.   IF_ERROR_RETURN (error_code) ;
  388.  
  389.   error_code = connectSelfRec  (s_unit, OUnits, 0.0) ; 
  390.   IF_ERROR_RETURN (error_code) ;
  391.  
  392.  
  393.   /* -------------  calculate y-coordinate of state layer  ------------------*/
  394.  
  395.   idy = (int) ((IUnits + ICols - 1) / ICols) ;
  396.   hdy = (int) ((HUnits + HCols - 1) / HCols) ;
  397.  
  398.   if (idy > hdy) maxdy = idy ;
  399.   else           maxdy = hdy ;
  400.  
  401.  
  402.   /*  --------------------------  set positions  ----------------------------*/
  403.  
  404.   setPosRow (i_unit, IUnits, 1                  , 1        , ICols) ;
  405.   setPosRow (h_unit, HUnits, 5+ICols+OCols      , 1        , HCols) ;
  406.   setPosRow (o_unit, OUnits, 9+ICols+HCols+OCols, 1        , OCols) ;
  407.   setPosRow (s_unit, OUnits, 3+ICols            , 1 + maxdy, OCols) ;
  408.  
  409.  
  410.   /*  -----------------------  set default functions  -----------------------*/
  411.  
  412.   error_code = krui_setLearnFunc ("JE_BP") ;
  413.   IF_ERROR_RETURN (error_code) ;
  414.  
  415.   error_code = krui_setInitialisationFunc ("JE_Weights") ;
  416.   IF_ERROR_RETURN (error_code) ;
  417.  
  418.   error_code = krui_setUpdateFunc ("JE_Order") ;
  419.  
  420.   return (error_code) ;
  421. } 
  422.  
  423.  
  424.  
  425. /*****************************************************************************
  426.   FUNCTION : bn_jordan_donePROC
  427.  
  428.   PURPOSE  : callback function for DONE button in 'Bignet (Jordan)' 
  429.   NOTES    :
  430.  
  431.   UPDATE   : 
  432. ******************************************************************************/
  433.  
  434. static void bn_jordan_donePROC (void)
  435.  
  436. {
  437.    XtDestroyWidget (baseWidget) ;
  438.    bn_jordan_open = 0 ;
  439. }
  440.  
  441.  
  442.  
  443. /*****************************************************************************
  444.   FUNCTION : bn_jordan_createPROC
  445.  
  446.   PURPOSE  : callback function for CREATE NET button in 'BigNet (Jordan)'
  447.   NOTES    :
  448.  
  449.   UPDATE   : 
  450. ******************************************************************************/
  451.  
  452. static void bn_jordan_createPROC (void)
  453.  
  454. {
  455.   int  units[3], cols[3] ;
  456.   int  i ;
  457.   char buf[80] ;
  458.  
  459.  
  460.   if (bn_basics_check_existingNetwork()) 
  461.   {
  462.     /* -------------------------  get values  ------------------------------ */
  463.  
  464.     for (i=0; i<3; i++)
  465.     {
  466.       units[i] = ui_xIntFromAsciiWidget (jordanUnitWidget[i]) ;
  467.       cols[i]  = ui_xIntFromAsciiWidget (jordanColWidget[i])  ;
  468.     } /*for*/
  469.  
  470.  
  471.     /* ------------------------  check values  ----------------------------- */
  472.  
  473.     for (i=0; i<3; i++)
  474.     {
  475.       if (units[i] < 1)
  476.       {
  477.         sprintf (buf,"Number of units has to be greater than 0 in line %d!",
  478.                  i + 1) ;
  479.         ui_confirmOk (buf);
  480.         return ;
  481.       } 
  482.  
  483.       if (cols[i] < 1)
  484.       {
  485.         sprintf (buf,"Number of cols has to be greater than 0 in line %d!",
  486.                  i + 1);
  487.         ui_confirmOk (buf) ;
  488.         return ;
  489.       } 
  490.     }
  491.  
  492.  
  493.     /* -------------------------  create net  ------------------------------ */
  494.  
  495.     if (bn_jordan_createNet (units[0], units[1], units[2], cols[0] , 
  496.                              cols[1] , cols[2] ) != KRERR_NO_ERROR) 
  497.       ui_confirmOk ("create net :  internal error") ;
  498.      
  499.     bn_basics_refresh () ;
  500.   } 
  501.  
  502.   return ;
  503. }
  504.  
  505.  
  506.  
  507.  
  508. /*****************************************************************************
  509.   FUNCTION : bn_create_jordan
  510.  
  511.   PURPOSE  : creates the 'BigNet (Jordan)' window
  512.   RETURNS  : void
  513.   NOTES    :
  514.  
  515.   UPDATE   : 
  516. ******************************************************************************/
  517.  
  518. void bn_create_jordan(void) 
  519.  
  520. {
  521.   Widget      jordan_panel, jordan_form, button, w_left, w_top ;
  522.   Arg          args[10];
  523.   Cardinal    n ;
  524.   char        buf[40];
  525.   int         i;
  526.   char        Name[4][20];
  527.  
  528.   
  529.   strcpy (Name[0], "Input  Layer: ") ;
  530.   strcpy (Name[1], "Hidden Layer: ") ;
  531.   strcpy (Name[2], "Output Layer: ") ;
  532.  
  533.  
  534.   if (bn_jordan_open == 0)
  535.   {
  536.     baseWidget   = 
  537.       XtCreatePopupShell ("BigNet (Jordan)", topLevelShellWidgetClass,
  538.                            ui_toplevel, NULL, 0) ;
  539.  
  540.     jordan_form  =
  541.       XtCreateManagedWidget ("box" , boxWidgetClass , baseWidget , NULL, 0) ;
  542.  
  543.     jordan_panel =
  544.       XtCreateManagedWidget ("form", formWidgetClass, jordan_form, NULL, 0) ;
  545.   
  546.  
  547.     /* ----------------------------  headline  -----------------------------*/
  548.      
  549.     w_left = w_top =
  550.       ui_xCreateLabelItem (" "           , jordan_panel, 12*8, NULL  , NULL);
  551.     w_left = 
  552.       ui_xCreateLabelItem ("No. of Units", jordan_panel, 12*8, w_left, NULL);
  553.     w_left = 
  554.       ui_xCreateLabelItem ("No. of Col." , jordan_panel, 12*8, w_left, NULL);
  555.  
  556.  
  557.     /* --------------------------  dialog rows  ----------------------------*/
  558.  
  559.     for (i = 0 ; i < 3 ; i++)
  560.     {
  561.       w_left =
  562.         ui_xCreateLabelItem  (Name[i], jordan_panel, 12*8, NULL  , w_top) ;
  563.   
  564.       w_left = 
  565.         ui_xCreateLabelItem  (" "    , jordan_panel,  2*8, w_left, w_top) ;
  566.  
  567.       w_left = jordanUnitWidget[i] = 
  568.         ui_xCreateDialogItem (" ", jordan_panel, "" , 6*8, w_left, w_top) ;
  569.  
  570.       w_left =
  571.         ui_xCreateLabelItem  (" "    , jordan_panel,  5*8, w_left, w_top) ;
  572.  
  573.       w_left = jordanColWidget[i]  = 
  574.         ui_xCreateDialogItem (" ", jordan_panel, "1", 6*8, w_left, w_top) ;
  575.   
  576.       w_top  = w_left ;
  577.     } 
  578.        
  579.  
  580.     /* -----------------------------  buttons  -----------------------------*/
  581.  
  582.     button =
  583.       bn_basics_xCreateButtonItem ("create_net", jordan_form, NULL  , w_top) ;
  584.       XtAddCallback (button, XtNcallback,
  585.                      (XtCallbackProc) bn_jordan_createPROC, NULL) ; 
  586.  
  587.     button =
  588.       bn_basics_xCreateButtonItem ("done"      , jordan_form, button, w_top) ;
  589.       XtAddCallback (button, XtNcallback,
  590.                      (XtCallbackProc) bn_jordan_donePROC  , NULL) ; 
  591.  
  592.     ui_checkWindowPosition(baseWidget) ;
  593.     XtPopup (baseWidget, XtGrabNone) ;
  594.  
  595.     fixWindowSize (baseWidget) ;
  596.  
  597.     bn_jordan_open = 1 ;
  598.   }
  599.   else
  600.   {
  601.     ui_confirmOk ("BigNet (Jordan) already loaded") ;
  602.   } 
  603.   
  604. }
  605.  
  606.  
  607.  
  608.  
  609. /*****************************************************************************
  610.   FUNCTION : bn_elman_createNet
  611.  
  612.   PURPOSE  : generates the ELMAN network 
  613.   RETURNS  : kernel error code
  614.   NOTES    :
  615.  
  616.   UPDATE   : 
  617. ******************************************************************************/
  618.  
  619. static krui_err bn_elman_createNet (void)
  620.  
  621. {
  622.   krui_err  error_code = KRERR_NO_ERROR;
  623.   int       i_unit, o_unit ;
  624.   int       h_unit[MAX_NO_OF_LAYERS], c_unit[MAX_NO_OF_LAYERS] ;
  625.   int       i, no_of_context_layers ;
  626.   int       no_of_hidden_layers, o_layer ;
  627.   int       dx, cx, cy ;
  628.   char      name[10] ;
  629.  
  630.  
  631.   no_of_hidden_layers = no_of_layers - 2 ;
  632.   o_layer             = no_of_layers - 1 ;   /* no. of the output layer */
  633.  
  634.  
  635.   /* ---------------------------   create units  ----------------------------*/
  636.  
  637.   i_unit = createUnitLayer (layer[0], INPUT, "Act_Identity", 
  638.                             "Out_Identity", "inp") ;
  639.   if (i_unit < 0) IF_ERROR_RETURN (i_unit) ;
  640.  
  641.   strcpy (name, "hid") ;
  642.   for (i = 1 ; i <= no_of_hidden_layers ; i++)
  643.   {
  644.     if (no_of_hidden_layers > 1) sprintf (name, "hid%d", i) ;  
  645.     h_unit[i] = createUnitLayer(layer[i], HIDDEN, "Act_Logistic", 
  646.                                 "Out_Identity", name) ;
  647.     if (h_unit[i] < 0) IF_ERROR_RETURN (h_unit[i]) ;
  648.   }
  649.  
  650.   o_unit = createUnitLayer (layer[o_layer], OUTPUT,  "Act_Logistic", 
  651.                             "Out_Identity", "out") ;
  652.   if (o_unit < 0) IF_ERROR_RETURN (o_unit) ;
  653.  
  654.   if (out_context) 
  655.   {
  656.     no_of_context_layers = no_of_hidden_layers + 1 ;
  657.     h_unit[no_of_context_layers] = o_unit ;
  658.   }
  659.   else 
  660.     no_of_context_layers = no_of_hidden_layers ;
  661.  
  662.   strcpy (name, "con") ;
  663.   for (i = 1 ; i <= no_of_context_layers ; i++)
  664.   {
  665.     if (no_of_context_layers > 1) sprintf (name, "con%d", i) ;  
  666.     c_unit[i] = createUnitLayer (layer[i], SPECIAL_H, "Act_Identity", 
  667.                                  "Out_Identity", name ) ;
  668.     if (c_unit[i] < 0) IF_ERROR_RETURN (c_unit[i]) ;
  669.   }
  670.  
  671.  
  672.   /* ---------------------------   create links  ----------------------------*/
  673.  
  674.   error_code = connectFull (i_unit, layer[0], h_unit[1], layer[1], 0.0) ;
  675.   IF_ERROR_RETURN (error_code) ;
  676.  
  677.   for (i = 1 ; i < no_of_hidden_layers ; i++)
  678.   {
  679.     error_code = 
  680.       connectFull (h_unit[i], layer[i], h_unit[i+1], layer[i+1], 0) ;
  681.     IF_ERROR_RETURN (error_code) ;
  682.   }
  683.  
  684.   error_code = connectFull (h_unit[i], layer[i], o_unit, layer[o_layer], 0) ;
  685.   IF_ERROR_RETURN (error_code) ;
  686.   
  687.   for (i = 1 ; i <= no_of_context_layers ; i++)
  688.   {
  689.     error_code = connectFull (c_unit[i], layer[i],  h_unit[i], layer[i], 0) ;
  690.     IF_ERROR_RETURN (error_code) ;
  691.  
  692.     error_code = connectOneToOne (h_unit[i], c_unit[i], layer[i], 0) ;
  693.     IF_ERROR_RETURN (error_code) ;
  694.  
  695.     error_code = connectSelfRec (c_unit[i], layer[i], 0) ;
  696.     IF_ERROR_RETURN (error_code) ;
  697.   }
  698.   
  699.  
  700.   /* --------------------------   set positions  ----------------------------*/
  701.  
  702.   cx = 1 ; /* position of the upper left */
  703.   cy = 1 ; /* corner of a context layer  */
  704.  
  705.   for (i = 0 ; i < no_of_layers ; i++)
  706.   {
  707.     if ((int) (layer[i] / columns[i]) > cy - 1)
  708.       cy = 1 + (int) (layer[i] / columns[i]) ;
  709.   }
  710.  
  711.   cy += 1 ;
  712.  
  713.   dx  = 1 ; /* x position of the upper left corner of an input, */
  714.             /* hidden or output layer                           */
  715.  
  716.   setPosRow (i_unit, layer[0], 1, 1, columns[0]) ;
  717.  
  718.   cx = dx + columns[0] + 2 ;
  719.   dx = cx + columns[1] + 2 ;
  720.  
  721.   for (i = 1 ; i <= no_of_context_layers ; i++)
  722.   {
  723.     setPosRow (h_unit[i], layer[i],  dx, 1 , columns[i]) ;
  724.     setPosRow (c_unit[i], layer[i],  cx, cy, columns[i]) ;
  725.  
  726.     cx = dx + columns[i]   + 2 ;
  727.     dx = cx + columns[i+1] + 2 ;
  728.   }
  729.  
  730.   if (! out_context)
  731.     setPosRow (o_unit, layer[o_layer], dx, 1, columns[o_layer]) ;
  732.  
  733.  
  734.   /* ----------------------   set default functions  ------------------------*/
  735.  
  736.   error_code = krui_setLearnFunc ("JE_BP") ;
  737.   IF_ERROR_RETURN (error_code) ;
  738.  
  739.   error_code = krui_setInitialisationFunc ("JE_Weights") ;
  740.   IF_ERROR_RETURN (error_code) ;
  741.  
  742.   error_code = krui_setUpdateFunc ("JE_Order") ;
  743.  
  744.   return (error_code) ;
  745. }
  746.  
  747.  
  748.  
  749. /*****************************************************************************
  750.   FUNCTION : bn_elman_getFromWidget 
  751.  
  752.   PURPOSE  : get values from 'BigNet (Elman)' window
  753.   RETURNS  : void
  754.   NOTES    :
  755.  
  756.   UPDATE   : 
  757. ******************************************************************************/
  758.  
  759. static void bn_elman_getFromWidget (void)
  760.  
  761. {
  762.   int i ;
  763.  
  764.   for (i = 0 ; i < no_of_layers ; i++)
  765.   {
  766.     layer[i]   = ui_xIntFromAsciiWidget (elmanUnitWidget[i]) ;
  767.     columns[i] = ui_xIntFromAsciiWidget (elmanColWidget[i] ) ;
  768.   }
  769.  
  770.   out_context = ui_xGetToggleState (t_yes) ;
  771. }
  772.  
  773.  
  774.  
  775. /*****************************************************************************
  776.   FUNCTION : bn_elman_donePROC
  777.  
  778.   PURPOSE  : callback function for DONE button in 'BigNet (Elman)'
  779.   RETURNS  : void
  780.   NOTES    :
  781.  
  782.   UPDATE   : 
  783. ******************************************************************************/
  784.  
  785. static void bn_elman_donePROC (void)
  786.  
  787. {
  788.    XtDestroyWidget (baseWidget) ;
  789.    bn_elman_open = 0 ;
  790. }
  791.  
  792.  
  793.  
  794. /*****************************************************************************
  795.   FUNCTION : bn_elman_createPROC
  796.  
  797.   PURPOSE  : callback function for CREATE NET button in 'BigNet (Elman)'
  798.   RETURNS  : void
  799.   NOTES    :
  800.  
  801.   UPDATE   : 
  802. ******************************************************************************/
  803.  
  804. static void bn_elman_createPROC (void)
  805.  
  806. {
  807.   int  i       ;
  808.   char buf[80] ;
  809.  
  810.  
  811.   if (bn_basics_check_existingNetwork())
  812.   {
  813.     bn_elman_getFromWidget () ;
  814.  
  815.     for (i = 0 ; i < no_of_layers ; i++)
  816.     {
  817.  
  818.       /* -------------------------  check values  -------------------------- */
  819.  
  820.       if (layer[i] < 1)
  821.       {
  822.         sprintf (buf, "Number of units has to be greater than 0 in line %d!",
  823.                  i + 1) ;
  824.         ui_confirmOk (buf) ;
  825.         return ;
  826.       } 
  827.  
  828.       if (columns[i] < 1)
  829.       {
  830.         sprintf (buf, "Number of columns has to be greater than 0 in line %d!",
  831.                  i + 1) ;
  832.         ui_confirmOk (buf) ;
  833.         return ;
  834.       } 
  835.     }
  836.    
  837.    if (bn_elman_createNet () != KRERR_NO_ERROR)
  838.      ui_confirmOk ("create net :  internal error") ;
  839.  
  840.    bn_basics_refresh  () ;
  841.   } 
  842.  
  843.   return ;
  844. }
  845.  
  846.  
  847.  
  848. /*****************************************************************************
  849.   FUNCTION : bn_elman_create_dialogrow
  850.  
  851.   PURPOSE  : creates a dialog row in the 'BigNet (Elman)' window
  852.   RETURNS  : void
  853.   NOTES    :
  854.  
  855.   UPDATE   : 
  856. ******************************************************************************/
  857.  
  858. static void bn_elman_create_dialogrow (int i, char *str) 
  859.  
  860. {
  861.   Widget w_top, w_left ;
  862.   char   buf[256] ;
  863.  
  864.  
  865.   if (i == 0) w_top = w_headline ;
  866.   else        w_top = elmanLabelWidget [i - 1] ;
  867.  
  868.   sprintf (buf, "  %3d      %s", i+1, str) ;
  869.  
  870.   w_left = elmanLabelWidget[i] =
  871.     ui_xCreateLabelItem (buf, elman_form[0], 19 * 8, NULL, w_top) ;
  872.  
  873.   if (layer[i] == 0) strcpy  (buf, "") ;
  874.   else               sprintf (buf, "%d", layer[i]) ;
  875.  
  876.   w_left = elmanUnitWidget[i] = 
  877.     ui_xCreateDialogItem (" ", elman_form[0], buf, 6 * 8, w_left, w_top) ;
  878.  
  879.   w_left = elmanSpaceWidget[i] =
  880.     ui_xCreateLabelItem  (" ", elman_form[0], 5 * 8, w_left, w_top) ;
  881.  
  882.   if (columns[i] == 0) strcpy  (buf, "") ;
  883.   else                 sprintf (buf, "%d", columns[i]) ;
  884.  
  885.   w_left = w_top = elmanColWidget[i]  = 
  886.     ui_xCreateDialogItem (" ", elman_form[0], buf, 6 * 8, w_left, w_top) ;
  887.  
  888. }
  889.  
  890.  
  891.  
  892. /*****************************************************************************
  893.   FUNCTION : bn_elman_yesPROC
  894.  
  895.   PURPOSE  : callback function for YES button in 'BigNet (Elman)'
  896.   RETURNS  : void
  897.   NOTES    :
  898.  
  899.   UPDATE   :
  900. ******************************************************************************/
  901.  
  902. static void bn_elman_yesPROC (void)
  903.  
  904. {
  905.   if (! ui_xGetToggleState (t_yes)) ui_xSetToggleState (t_yes, TRUE ) ;
  906.   else                              ui_xSetToggleState (t_no , FALSE) ;
  907. }
  908.  
  909.  
  910.  
  911. /*****************************************************************************
  912.   FUNCTION : bn_elman_noPROC
  913.  
  914.   PURPOSE  : callback function for NO button in 'BigNet (Elman)'
  915.   RETURNS  : void
  916.   NOTES    :
  917.  
  918.   UPDATE   :
  919. ******************************************************************************/
  920.  
  921. static void bn_elman_noPROC (void)
  922.  
  923. {
  924.   if (! ui_xGetToggleState (t_no)) ui_xSetToggleState (t_no , TRUE ) ;
  925.   else                             ui_xSetToggleState (t_yes, FALSE) ;
  926. }
  927.  
  928.  
  929.  
  930. /*****************************************************************************
  931.   FUNCTION : bn_elman_insertPROC
  932.  
  933.   PURPOSE  : callback function for INSERT button in 'BigNet (Elman)'
  934.              inserts a new hidden layer
  935.   RETURNS  : void
  936.   NOTES    :
  937.  
  938.   UPDATE   :
  939. ******************************************************************************/
  940.  
  941. static void bn_elman_insertPROC (void)
  942.  
  943. {
  944.   if (no_of_layers < MAX_NO_OF_LAYERS)
  945.   {
  946.     bn_elman_getFromWidget () ;
  947.  
  948.     layer[no_of_layers]     = layer[no_of_layers - 1] ;
  949.     layer[no_of_layers - 1] = 0 ;
  950.  
  951.     columns[no_of_layers]     = columns[no_of_layers - 1] ;
  952.     columns[no_of_layers - 1] = 1 ;
  953.  
  954.  
  955.     /* ----------    delete output layer     ---------- */
  956.  
  957.     XtDestroyWidget (elmanLabelWidget[no_of_layers - 1]) ;
  958.     XtDestroyWidget (elmanUnitWidget [no_of_layers - 1]) ;
  959.     XtDestroyWidget (elmanSpaceWidget[no_of_layers - 1]) ;
  960.     XtDestroyWidget (elmanColWidget  [no_of_layers - 1]) ;
  961.  
  962.  
  963.     /* -------  insert hidden and output layer  ------- */
  964.  
  965.     no_of_layers++ ;
  966.     bn_elman_create_dialogrow (no_of_layers - 2, "hidden") ;
  967.     bn_elman_create_dialogrow (no_of_layers - 1, "output") ;
  968.  
  969.     fixWindowSize (baseWidget) ;
  970.   }
  971.   else
  972.     ui_confirmOk ("No more hidden layers are supported !") ;
  973. }
  974.  
  975.  
  976.  
  977. /*****************************************************************************
  978.   FUNCTION : bn_elman_deletePROC
  979.  
  980.   PURPOSE  : callback function for DELETE button in 'BigNet (Elman)'
  981.              deletes the last hidden layer
  982.   NOTES    :
  983.  
  984.   UPDATE   :
  985. ******************************************************************************/
  986.  
  987. static void bn_elman_deletePROC (void)
  988.  
  989. {
  990.   if (no_of_layers > 3)
  991.   {
  992.     bn_elman_getFromWidget () ;
  993.  
  994.     no_of_layers-- ;
  995.  
  996.     layer[no_of_layers - 1]   = layer[no_of_layers] ;
  997.     layer[no_of_layers]       = 0 ;
  998.  
  999.     columns[no_of_layers - 1] = columns[no_of_layers] ;
  1000.     columns[no_of_layers]     = 1 ;
  1001.  
  1002.  
  1003.     /* ----------  delete last hidden layer  ---------- */
  1004.  
  1005.     XtDestroyWidget (elmanLabelWidget[no_of_layers - 1]) ;
  1006.     XtDestroyWidget (elmanUnitWidget [no_of_layers - 1]) ;
  1007.     XtDestroyWidget (elmanSpaceWidget[no_of_layers - 1]) ;
  1008.     XtDestroyWidget (elmanColWidget  [no_of_layers - 1]) ;
  1009.  
  1010.  
  1011.     /* ----------    delete output layer     ---------- */
  1012.  
  1013.     XtDestroyWidget (elmanLabelWidget[no_of_layers]) ;
  1014.     XtDestroyWidget (elmanUnitWidget [no_of_layers]) ;
  1015.     XtDestroyWidget (elmanSpaceWidget[no_of_layers]) ;
  1016.     XtDestroyWidget (elmanColWidget  [no_of_layers]) ;
  1017.  
  1018.  
  1019.     /* ----------    insert output layer     ---------- */
  1020.  
  1021.     bn_elman_create_dialogrow (no_of_layers - 1, "output") ;
  1022.  
  1023.     fixWindowSize (baseWidget) ;
  1024.   }
  1025.   else
  1026.     ui_confirmOk ("You can not delete the last hidden layer !") ; 
  1027. }
  1028.  
  1029.  
  1030.  
  1031. /*****************************************************************************
  1032.   FUNCTION : bn_create_elman
  1033.  
  1034.   PURPOSE  : creates the 'BigNet (Elman)' window
  1035.   RETURNS  : void
  1036.   NOTES    :
  1037.  
  1038.   UPDATE   : 
  1039. ******************************************************************************/
  1040.  
  1041. void bn_create_elman (void)
  1042.  
  1043. {
  1044.   Widget      button, w_left, w_top ;
  1045.   Cardinal    n ;
  1046.   Arg          args[10];
  1047.   char        buf[20];
  1048.   int         i;
  1049.  
  1050.  
  1051.   if (bn_elman_open == 0)
  1052.   {
  1053.     no_of_layers = 3 ;                  /* 1 input, 1 hidden, 1 output layer */
  1054.  
  1055.     for (i = 0 ; i < MAX_NO_OF_LAYERS ; i++)
  1056.     {
  1057.       layer[i]   = 0 ;
  1058.       columns[i] = 1 ;
  1059.     }
  1060.  
  1061.     baseWidget    = XtCreatePopupShell ("BigNet (Elman)",
  1062.                                         topLevelShellWidgetClass,
  1063.                                         ui_toplevel, NULL, 0);
  1064.  
  1065.     elman_box     = XtCreateManagedWidget ("box" , boxWidgetClass , 
  1066.                                            baseWidget, NULL , 0) ;
  1067.  
  1068.     elman_form[0] = XtCreateManagedWidget ("form", formWidgetClass, 
  1069.                                            elman_box, NULL , 0) ;
  1070.  
  1071.  
  1072.     /* -----------------------------  headline  ----------------------------*/
  1073.  
  1074.     w_left = w_top = w_headline =
  1075.       ui_xCreateLabelItem ("Layer No.  Type    No. of Units  No. of Col.  ",
  1076.                            elman_form[0], (9 + 8 + 24) * 8, NULL  , NULL) ;
  1077.  
  1078.  
  1079.     /* ---------------------------  dialog rows  ---------------------------*/
  1080.  
  1081.     for (i = 0 ; i < no_of_layers ; i++)
  1082.     {
  1083.       if      (i == 0)              bn_elman_create_dialogrow (i, "input ") ;
  1084.       else if (i == no_of_layers-1) bn_elman_create_dialogrow (i, "output") ;
  1085.       else                          bn_elman_create_dialogrow (i, "hidden") ;
  1086.     } 
  1087.  
  1088.  
  1089.     /* -----------------  output context :  yes / no  ----------------------*/
  1090.  
  1091.     elman_form[1] = XtCreateManagedWidget ("form", formWidgetClass, elman_box,
  1092.                        NULL , 0) ;
  1093.  
  1094.     w_left = ui_xCreateLabelItem ("Output Context :", elman_form[1], 
  1095.                                   20 * 8, NULL, NULL) ;
  1096.  
  1097.     t_yes =
  1098.       ui_xCreateToggleItem ("yes", elman_form[1], NULL, w_left, NULL) ;
  1099.       XtAddCallback (t_yes, XtNcallback,
  1100.                      (XtCallbackProc) bn_elman_yesPROC, NULL) ; 
  1101.  
  1102.     w_left = ui_xCreateLabelItem (" ", elman_form[1], 7 * 8, t_yes, 
  1103.                                   NULL) ;
  1104.  
  1105.     t_no =
  1106.       ui_xCreateToggleItem ("no", elman_form[1], NULL, w_left, NULL) ;
  1107.       XtAddCallback (t_no, XtNcallback,
  1108.                      (XtCallbackProc) bn_elman_noPROC, NULL) ; 
  1109.  
  1110.     w_left = ui_xCreateLabelItem (" ", elman_form[1], 3 * 8 + 4, t_no, 
  1111.                                   NULL) ;
  1112.  
  1113.     ui_xSetToggleState (t_yes, FALSE) ;
  1114.     ui_xSetToggleState (t_no , TRUE ) ;
  1115.  
  1116.  
  1117.     /* --------------  hidden layers :  insert / delete  -------------------*/
  1118.  
  1119.     elman_form[2] = XtCreateManagedWidget ("form", formWidgetClass, elman_box,
  1120.                        NULL , 0) ;
  1121.  
  1122.     w_left = ui_xCreateLabelItem ("Hidden Layers  :", elman_form[2], 
  1123.                                   18 * 8 + 5, NULL, NULL) ;
  1124.  
  1125.     button =
  1126.       bn_basics_xCreateButtonItem ("insert", elman_form[2], w_left, NULL) ;
  1127.       XtAddCallback (button, XtNcallback,
  1128.                      (XtCallbackProc) bn_elman_insertPROC, NULL) ; 
  1129.  
  1130.     w_left = ui_xCreateLabelItem (" ", elman_form[2], 4 * 8 + 5, button, 
  1131.                                   NULL) ;
  1132.  
  1133.     button =
  1134.       bn_basics_xCreateButtonItem ("delete", elman_form[2], w_left, NULL) ;
  1135.       XtAddCallback (button, XtNcallback,
  1136.                      (XtCallbackProc) bn_elman_deletePROC, NULL) ; 
  1137.  
  1138.     w_left = ui_xCreateLabelItem (" ", elman_form[2], 2 * 8 + 4, button, 
  1139.                                   NULL) ;
  1140.  
  1141.  
  1142.     /* -----------------------  done / create  -----------------------------*/
  1143.  
  1144.     button = 
  1145.       bn_basics_xCreateButtonItem ("create_net", elman_box, NULL  , 
  1146.                                    elman_form[2]) ;
  1147.       XtAddCallback (button, XtNcallback,
  1148.                      (XtCallbackProc) bn_elman_createPROC, NULL) ; 
  1149.  
  1150.     button =
  1151.       bn_basics_xCreateButtonItem ("done"      , elman_box, button,
  1152.                                    elman_form[2]) ;
  1153.       XtAddCallback (button, XtNcallback,
  1154.                      (XtCallbackProc) bn_elman_donePROC  , NULL) ; 
  1155.  
  1156.     ui_checkWindowPosition (baseWidget) ;
  1157.     XtPopup (baseWidget, XtGrabNone) ; 
  1158.  
  1159.     fixWindowSize (baseWidget) ;
  1160.  
  1161.     bn_elman_open = 1 ;
  1162.   }
  1163.   else
  1164.     ui_confirmOk ("BigNet (Elman) already loaded!") ;
  1165. }
  1166.  
  1167.  
  1168.  
  1169. /*****************************************************************************
  1170.                         E N D     O F     F I L E
  1171. ******************************************************************************/
  1172.  
  1173.  
  1174.  
  1175.  
  1176.